home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / archive / cx201e.arj / CX.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-01  |  3KB  |  83 lines
  1. {
  2.    Cx interface.
  3.    Copyright (c) 1990-1994 Eugene Nelson, Four Lakes Computing.
  4. }
  5.  
  6. unit  cx;
  7.  
  8. {$F+}    {Required, do not change}
  9.  
  10. interface
  11. {------------------------------------------------------------------------}
  12.  
  13. type  CXINT =  word;
  14.  
  15. const CXINTSIZE=           (2);
  16.  
  17. const CX_ERR_INVALID =     (65535 - 0);
  18. const CX_ERR_METHOD =      (65535 - 1);
  19. const CX_ERR_BUFFSIZE =    (65535 - 2);
  20. const CX_ERR_TEMPSIZE =    (65535 - 3);
  21.  
  22. const CX_METHOD1 =         (1);
  23. const CX_METHOD2 =         (2);
  24. const CX_METHOD3 =         (3);
  25. const CX_METHODC =         (4);
  26. const CX_METHODD =         (5);
  27. const CX_MAX_BUFFER =      (65000);
  28. const CX_SLOP =            (300);
  29.  
  30. const CX_C_MINTEMP =       (18 * 1024);
  31. const CX_C_MAXTEMP =       (65500);
  32. const CX_D_MINTEMP =       (7 * 1024);
  33.  
  34. function CX_COMPRESS(
  35.                   method   :CXINT      ;
  36.             var   o                    ;
  37.                   osize    :CXINT      ;
  38.             var   i                    ;
  39.                   isize    :CXINT      ;
  40.             var   temp                 ;
  41.                   tsize    :CXINT)     : CXINT;
  42.  
  43. function CX_DECOMPRESS(
  44.             var   o; 
  45.                   osize    :CXINT      ;
  46.             var   i                    ; 
  47.                   isize    :CXINT      ; 
  48.             var   temp                 ;
  49.                   tsize    :CXINT)     : CXINT;
  50.  
  51. function CX_CRC(
  52.             var   buff                 ; 
  53.                   n        :CXINT)     : CXINT;
  54.  
  55. implementation
  56. {------------------------------------------------------------------------}
  57. function CX_COMPRESS(
  58.                   method   :CXINT      ;
  59.             var   o                    ;
  60.                   osize    :CXINT      ;
  61.             var   i                    ;
  62.                   isize    :CXINT      ;
  63.             var   temp                 ;
  64.                   tsize    :CXINT)     : CXINT;    external;
  65.  
  66. {------------------------------------------------------------------------}
  67. function CX_DECOMPRESS(
  68.             var   o; 
  69.                   osize    :CXINT      ;
  70.             var   i                    ; 
  71.                   isize    :CXINT      ; 
  72.             var   temp                 ;
  73.                   tsize    :CXINT)     : CXINT;    external;
  74.  
  75. {------------------------------------------------------------------------}
  76. function CX_CRC(
  77.             var   buff                 ; 
  78.                   n        :CXINT)     : CXINT;    external;
  79.  
  80. {$L cx.obj}
  81.  
  82. end.
  83.